home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Floppyshop 2
/
Floppyshop - 2.zip
/
Floppyshop - 2.iso
/
diskmags
/
3565-4.665
/
dmg-4385
/
custom_2
/
fswitch
/
onthefly.bas
(
.txt
)
< prev
next >
Wrap
Atari STOS Basic
|
1987-04-21
|
6KB
|
39 lines
10 REM Font Switching on the fly.
100 VARNAME
110 ERASE
120 ERASE
130 UNKNOWN OP: 0x3A
140 VARNAME
150 UNKNOWN OP: 0x3A
160 VARNAME
170 PRINT
180 VARNAME
190 PRINT
20 REM 3 Different fonts will be used to create this effect.
200 VARNAME
210 ERASE
220 STOP
230 FOR
240 VARNAME
250 IF
260 IF
270 IF
280 IF
290 PRINT
30 REM (Four fonts could be used if your Low Res font is different from your medium res font)
300 NEXT
310 PRINT
320 RETURN
330 REM =================== chop me to use me ==================
340 DREG
350 VARNAME
360 VARNAME
370 COPY
380 RETURN
40 REM Auld Bastid December 1993
50 UNKNOWN OP: 0x3A
60 KEY
70 VARNAME
80 VARNAME
90 VARNAME